home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / GS.LSP < prev    next >
Text File  |  1992-09-13  |  333b  |  12 lines

  1. ;Set text Stlye by picking existing
  2. ;may have to return after end.
  3. ;
  4. (defun c:gs (/ a b c d)
  5. (graphscr)
  6. (prompt "\nSelect text to set style....")
  7. (setq a (entsel))
  8. (setq b (entget (car a)))
  9. (setq c (cdr (assoc 7 b)))
  10. (setq d (cdr (assoc 40 b)))
  11. (command "style" c "" d "" "" "" ""))
  12. (princ "\nType GS to set text style.")